(copy-tree): Use let* to bind new before i.

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 7a8ff4789bac7e2ed4654cf8aa5d0cf4de229f48..dc45ef546f7fdbc2f74eed4b6b6fe8944d088e8d 100644 (file)
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -29,8 +29,8 @@
       (cons (copy-tree (car tree))
            (copy-tree (cdr tree)))
     (if (vectorp tree)
-       (let ((new (copy-sequence tree))
-             (i (1- (length new))))
+       (let* ((new (copy-sequence tree))
+              (i (1- (length new))))
          (while (>= i 0)
            (aset new i (copy-tree (aref new i)))
            (setq i (1- i)))